module test_mesh_dump_mod

use pFUnit

use mesh_dump_mod

implicit none

contains

    subroutine setUp( )
        integer :: i
        !allocate( buffer( 11 ) )
        !buffer = [ (i, i=1, 11 ) ]
    end subroutine setUp

    subroutine tearDown( )
        !deallocate( buffer )
    end subroutine tearDown


    subroutine test_fileinitvtk( )
        integer :: ierr
        call setUp()
        ierr = File_Init_VTK("test.vtk",10,10,10)
        call assertEqual(0, ierr, "File initialisation failed")
        call tearDown()
    end subroutine test_fileinitvtk


end module test_mesh_dump_mod
